home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / STR#_-8153.txt < prev    next >
Encoding:
Text File  |  1996-09-10  |  2.4 KB  |  129 lines
  1. %!PS-TrueTypeFont-^d-^d-1
  2.  
  3.  
  4. 25 dict begin
  5. /FontName /^p def
  6.  
  7.  
  8. /PaintType 0 def
  9.  
  10.  
  11. /fcheckload{{pop}{save 3 dict begin/mystring 2050 string def exch/endstring exch def{currentfile mystring readline not{stop}if endstring eq{exit}if}loop end restore}ifelse}bind def
  12.  
  13.  
  14. userdict/type42known known not{/type42known systemdict/resourcestatus known{42/FontType resourcestatus{pop pop true}{false}ifelse}{false}ifelse def}if
  15.  
  16.  
  17. /truedictknown userdict/TrueDict known{TrueDict dup /initer known 1 index /render known 2 index /imagemaskwrapper known 4 -1 roll /bander known and and and}{false}ifelse def
  18.  
  19.  
  20. %beginsfnt
  21. truedictknown type42known or( %endsfnt)exch fcheckload
  22.  
  23.  
  24. /FontMatrix [1 0 0 1 0 0] def
  25. /FontBBox[^i ^i 1 index div ^i 2 index div ^i 3 index div ^i 5 -1 roll div]cvx def
  26.  
  27.  
  28. /FontType type42known{42}{3}ifelse def
  29. systemdict/product 2 copy known{get dup(LaserWriter IIf)eq exch(LaserWriter IIg)eq or version(2010.113)eq and not}{pop pop true}ifelse{/UniqueID 16#^h def}if
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  %endsfnt
  36.  
  37.  
  38.  
  39. %beginsfntBC
  40. truedictknown type42known not and ( %endsfntBC)exch fcheckload
  41.  
  42.  
  43. /TrueState ^i string def
  44. TrueDict begin sfnts save 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt cvi 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt cvi 3 -1 roll restore TrueState initer end
  45.  
  46.  
  47. /BuildChar{exch begin Encoding 1 index get CharStrings dup 2 index known{exch}{exch pop /.notdef}ifelse get dup xcheck{currentdict systemdict begin begin exec end end}
  48.  
  49. {exch pop TrueDict begin /bander load cvlit exch TrueState render end}ifelse end} bind def
  50.  
  51.  
  52.  %endsfntBC
  53.  
  54.  
  55.  
  56. %beginsfntdef
  57. truedictknown type42known or( %endsfntdef)exch fcheckload
  58. currentdict dup/FontName get exch definefont pop
  59.  
  60.  %endsfntdef
  61.  
  62.  
  63.  
  64. %beginType1
  65. truedictknown type42known or not( %endType1)exch fcheckload
  66. /FontMatrix [1 ^i div 0 0 1 ^i div 0 0] def
  67.  
  68.  
  69.  
  70. /FontBBox{^i ^i ^i ^i}def
  71.  
  72.  
  73. /FontType 1 def
  74. /UniqueID 16#^h def
  75. currentdict
  76. currentfile eexec
  77.  
  78.  
  79.  
  80. dup/Private 8 dict dup begin
  81. /RD{string currentfile exch readstring pop}executeonly def
  82. /ND{noaccess def}executeonly def
  83. /NP{noaccess put}executeonly def
  84.  
  85.  
  86. /BlueValues[]def
  87. /MinFeature{16 16}def
  88. /password 5839 def
  89. /Subrs 1 array def
  90. 2 index /CharStrings 
  91.  
  92.  dict dup begin
  93.  
  94.  
  95.  RD 
  96.  
  97.  ND
  98.  
  99.  
  100. /.notdef 8 RD 
  101.  
  102. end
  103. end
  104. readonly put
  105. noaccess put
  106. dup /FontName get exch definefont pop
  107. mark currentfile closefile
  108.  
  109.  
  110. 0000000000000000000000000000000000000000000000000000000000000000
  111.  
  112.  
  113. cleartomark
  114.  
  115.  %endType1
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.